home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / programming / Final Cartridge III software.sfx / smallexample.asm (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-08-11  |  1.3 KB  |  63 lines
  1. 1000 ; smallexample  date: 10-03-88
  2. 1010 ;---------------------------------
  3. 1020 ;
  4. 1030 ; the final cartridge iii desktop
  5. 1040 ;
  6. 1050 ;     riska h&p, marc derksen
  7. 1060 ;
  8. 1070 ;     p r o j e c t   d e m o
  9. 1080 ;
  10. 1090 ;---------------------------------
  11. 1100 ;
  12. 1110 *=$0be1,$0801
  13. 1120 gosub=$de05  ; system constants
  14. 1130 close=$01
  15. 1140 toback=$02
  16. 1150 dragbr=$08
  17. 1160 ;
  18. 1170 ;------ basic startup data -----
  19. 1180 wor $0817,1987  ; line number
  20. 1190 byt $9e  ; basic sys-code
  21. 1200 byt "2076 desk[164]p v1.0",0,0,0
  22. 1210 byt 1,0  ; version
  23. 1220 byt 2  ; size in blocks
  24. 1230 jmp $dfe8  ; startup
  25. 1240 byt 0  ; unused
  26. 1250 ;
  27. 1260 mn3=$c074
  28. 1270 mn3it1=$c0c2
  29. 1280 ;------ main ------------------
  30. 1290 start ldx #<item2  ; set new menu
  31. 1300 ldy #>item2
  32. 1310 stx mn3it1
  33. 1320 sty mn3it1+1
  34. 1330 lda #16+1  ; menu height
  35. 1340 sta mn3+7
  36. 1350 rts
  37. 1360 ;
  38. 1370 ;------ menuitem structure ---
  39. 1380 item2 wor 0  ; nextitem
  40. 1390 wor it2txt  ; item name
  41. 1400 wor openwd  ; item exec
  42. 1410 byt 1,0  ; enable item
  43. 1420 ;
  44. 1430 it2txt byt "[196][197][205][207][160][215][196]",0
  45. 1440 ;
  46. 1450 ;------ window ---------------
  47. 1460 openwd ldx #<window  ; call openwd
  48. 1470 ldy #>window
  49. 1480 lda #openwindow
  50. 1490 jmp gosub
  51. 1500 ;
  52. 1510 window wor 0  ; no gadgets
  53. 1520 byt 40,40  ; wdx,wdy
  54. 1530 byt 110,50  ; width,height
  55. 1540 wor wdtitle  ; window name
  56. 1550 byt close+toback+dragbr  ; wdflags
  57. 1560 byt 66  ; wdtitle size
  58. 1570 wor 0,0
  59. 1580 wdtitle byt "[205]y [215]indow",0
  60. 1590 ;
  61. 1600 ;------ includes -------------
  62. 1610 openwindow=48
  63.